﻿Imports BUS
Imports DTO
Public Class UserControlCapNhatPhieuGuiTien
    Dim pgtDTO As New PhieuGoiTienDTO()
    Private Sub btnChon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChon.Click
        Dim maphieugoi As Integer
        If Integer.TryParse(txtMaPhieuGoi.Text, maphieugoi) = False Or maphieugoi <= 0 Then
            MessageBox.Show("Mã phiếu gởi không hợp lệ!")
            txtMaPhieuGoi.Focus()
            Return
        End If
        pgtDTO.MaPhieuGoi = maphieugoi
        cbbMaSo.Enabled = True
        txtSoTienGoi.Enabled = True
        dtpNgayGoi.Enabled = True
        btnCapNhat.Enabled = True

        Dim dt As New DataTable()
        Dim pgtBUS As New PhieuGoiTienBUS()
        dt = pgtBUS.LayThongTinPhieuGoiTien(maphieugoi)
        If dt.Rows.Count <= 0 Then
            MessageBox.Show("Mã phiếu gởi không tồn tại, vui lòng nhập lại!")
            txtMaPhieuGoi.Focus()
            cbbMaSo.Enabled = False
            txtSoTienGoi.Enabled = False
            dtpNgayGoi.Enabled = False
            btnCapNhat.Enabled = False
            Return
        End If
        cbbMaSo.Text = dt.Rows(0)("MaSo").ToString()
        dtpNgayGoi.Value = dt.Rows(0)("NgayGoi")
        txtSoTienGoi.Text = dt.Rows(0)("SoTienGoi").ToString()
        txtKhachHang.Text = dt.Rows(0)("TenKhachHang")

    End Sub


    Private Sub UserControlCapNhatPhieuGuiTien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dsSTK As New List(Of SoTietKiemDTO)()
        Dim stkBUS As New SoTietKiemBUS()
        dsSTK = stkBUS.LaySoTietKiemDuocGoiTien()
        cbbMaSo.DataSource = dsSTK
        cbbMaSo.DisplayMember = "MaSo"
        cbbMaSo.ValueMember = "MaSo"
    End Sub

    Private Sub btnCapNhat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCapNhat.Click
        Dim sotiengoi As Double
        If Double.TryParse(txtSoTienGoi.Text, sotiengoi) = False Or sotiengoi <= 0 Then
            MessageBox.Show("Số tiền gởi không hợp lệ!")
            txtSoTienGoi.Focus()
            Return
        End If
        pgtDTO.MaSo = cbbMaSo.SelectedValue
        pgtDTO.NgayGoi = dtpNgayGoi.Value
        pgtDTO.SoTienGoi = sotiengoi

        Try
            Dim pgtBUS As New PhieuGoiTienBUS()
            Dim kq As Integer = pgtBUS.CapNhatPhieuGoiTien(pgtDTO)
            If kq = 1 Then
                MessageBox.Show("Cập nhật thành công")
            Else
                MessageBox.Show("Cập nhật thất bại!")
                Return
            End If
        Catch ex As Exception
            MessageBox.Show("Cập nhật thất bại!")
            Return
        End Try
    End Sub
End Class
